home *** CD-ROM | disk | FTP | other *** search
/ IRIX 5.3 for Indy R4400 / IRIX 5.3 for Indy R4400 175MHz.img / dist / eoe2.idb / usr / lib / perl / sys / syslog.ph.z / syslog.ph
Text File  |  1995-02-28  |  2KB  |  68 lines
  1. if (!defined &_SYS_SYSLOG_H) {
  2.     eval 'sub _SYS_SYSLOG_H {1;}';
  3.     eval 'sub LOG_EMERG {0;}';
  4.     eval 'sub LOG_ALERT {1;}';
  5.     eval 'sub LOG_CRIT {2;}';
  6.     eval 'sub LOG_ERR {3;}';
  7.     eval 'sub LOG_WARNING {4;}';
  8.     eval 'sub LOG_NOTICE {5;}';
  9.     eval 'sub LOG_INFO {6;}';
  10.     eval 'sub LOG_DEBUG {7;}';
  11.     eval 'sub LOG_PRIMASK {0x07;}';
  12.     eval 'sub LOG_PRI {
  13.         local($p) = @_;
  14.         eval "(($p) &  &LOG_PRIMASK)";
  15.     }';
  16.     eval 'sub LOG_MAKEPRI {
  17.         local($fac, $pri) = @_;
  18.         eval "((($fac) << 3) | ($pri))";
  19.     }';
  20.     if (defined &SYSLOG_NAMES) {
  21.     eval 'sub INTERNAL_NOPRI {0x10;}';
  22.     eval 'sub INTERNAL_MARK { &LOG_MAKEPRI( &LOG_NFACILITIES, 0);}';
  23.     }
  24.     eval 'sub LOG_KERN {(0<<3);}';
  25.     eval 'sub LOG_USER {(1<<3);}';
  26.     eval 'sub LOG_MAIL {(2<<3);}';
  27.     eval 'sub LOG_DAEMON {(3<<3);}';
  28.     eval 'sub LOG_AUTH {(4<<3);}';
  29.     eval 'sub LOG_SYSLOG {(5<<3);}';
  30.     eval 'sub LOG_LPR {(6<<3);}';
  31.     eval 'sub LOG_NEWS {(7<<3);}';
  32.     eval 'sub LOG_UUCP {(8<<3);}';
  33.     eval 'sub LOG_CRON {(9<<3);}';
  34.     eval 'sub LOG_AUDIT {(13<<3);}';
  35.     eval 'sub LOG_LFMT {(14<<3);}';
  36.     eval 'sub LOG_LOCAL0 {(16<<3);}';
  37.     eval 'sub LOG_LOCAL1 {(17<<3);}';
  38.     eval 'sub LOG_LOCAL2 {(18<<3);}';
  39.     eval 'sub LOG_LOCAL3 {(19<<3);}';
  40.     eval 'sub LOG_LOCAL4 {(20<<3);}';
  41.     eval 'sub LOG_LOCAL5 {(21<<3);}';
  42.     eval 'sub LOG_LOCAL6 {(22<<3);}';
  43.     eval 'sub LOG_LOCAL7 {(23<<3);}';
  44.     eval 'sub LOG_NFACILITIES {24;}';
  45.     eval 'sub LOG_FACMASK {0x03f8;}';
  46.     eval 'sub LOG_FAC {
  47.         local($p) = @_;
  48.         eval "((($p) &  &LOG_FACMASK) >> 3)";
  49.     }';
  50.     if (defined &SYSLOG_NAMES) {
  51.     }
  52.     eval 'sub LOG_MASK {
  53.         local($pri) = @_;
  54.         eval "(1 << ($pri))";
  55.     }';
  56.     eval 'sub LOG_UPTO {
  57.         local($pri) = @_;
  58.         eval "((1 << (($pri)+1)) - 1)";
  59.     }';
  60.     eval 'sub LOG_PID {0x01;}';
  61.     eval 'sub LOG_CONS {0x02;}';
  62.     eval 'sub LOG_ODELAY {0x04;}';
  63.     eval 'sub LOG_NDELAY {0x08;}';
  64.     eval 'sub LOG_NOWAIT {0x10;}';
  65.     eval 'sub LOG_PERROR {0x20;}';
  66. }
  67. 1;
  68.